﻿Public Class frmLogDetail
    Private _dr As DataGridViewRow

    Public Property Dr As DataGridViewRow
        Get
            Return _dr
        End Get
        Set(value As DataGridViewRow)
            _dr = value
        End Set
    End Property

    Private Sub frmLogDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If IsNothing(Dr) Then Exit Sub
        txtSYS_CMD_ID.Text = Dr.Cells(0).Value.ToString '("SYS_CMD_ID")
        txtEQUIP_ID.Text = Dr.Cells(1).Value.ToString '("EQUIP_ID")
        txtKOUTEI_CD.Text = Dr.Cells(2).Value.ToString '("KOUTEI_CD")
        txtLOT_NO.Text = Dr.Cells(3).Value.ToString '("LOT_NO")
        txtOPT_TIME.Text = Dr.Cells(4).Value.ToString '("OPT_TIME")
        txtOPT_USER.Text = Dr.Cells(5).Value.ToString '("OPT_USER")
        txtCONTROL.Text = Dr.Cells(6).Value.ToString '("CONTROL")
        txtMESSAGE.Text = Dr.Cells(7).Value.ToString '("MESSAGE")
    End Sub
End Class